Loadstar 64/064.d81/survive boot

Commodore BASIC | 1989-01-01 | 752 b | 19 lines

61000 poke53281,0:poke53280,0:print"[147][158]"
61010 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
61020 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
61030 fori=217to242:pokei,peek(i)or128:next:poke214,5
61040 print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]
61050 [130]:[151]214,6:[151]211,4:[158]58732
61060 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
61070 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
61080 [151]214,16:[151]211,4:[158]58732
61090 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
61100 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
61110 a$[178]"(NULL) (NULL) (NULL)close(NULL)closeright$close(NULL)closeval":[141]61160
61120 a$[178]"by chr$eorge peekorden":[141]61160:[153]
61130 a$[178]"(NULL)(NULL)peek(NULL)right$(NULL)left$valstr$close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)close#close64":[141]61160
61140 a$[178]"(len) 1989 chr$eorge peekorden":[141]61160
61150 [151]214,23:[153]:[153][163]12)"  (NULL) (NULL) atnclosestr$closeright$close(NULL)closechr$  ":[137]61170
61160 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
61170 [151]46,95:[151]48,94:[151]50,94:[151]52,160:[147]"survive",8